home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (DO)
/
Micro on the Apple Volume 2 (1981)(Micro Ink).zip
/
Micro on the Apple Volume 2 (1981)(Micro Ink).do
/
DIRECTORY.int
< prev
next >
Wrap
Text File
|
1996-12-24
|
1KB
|
40 lines
1 REM ************************
2 REM * *
3 REM * CASSETTE O.S. *
4 REM * BY ROBERT STEIN *
5 REM * *
6 REM * CASSOS *
7 REM * *
8 REM * COPYRIGHT (C) 1981 *
9 REM * MICRO INK, INC. *
10 REM * CHELMSFORD, MA 01824 *
11 REM * ALL RIGHTS RESERVED *
12 REM * *
13 REM ************************
14 REM
15 REM
16 REM
20 N=1:CALL -936:VTAB (10):DIM X$(1)
25 INPUT "INSERT LIBRARY TAPE AND DEPRESS 'RETURN'",X$
30 POKE -16289,0:CALL -936:GOSUB 300
40 PRINT "FILE # PROGRAM NAME BYTES"
50 PRINT "------ ------------ -----"
60 CALL 840:CALL -259
70 IF PEEK (688)= ASC("E") THEN 210
80 IF PEEK (688)= ASC("S") THEN 200
100 REM LOAD PROGRAM INTO MEMORY BELOW THE DIRECTORY PROGRAM.
105 D= PEEK (856)-3
110 POKE 60, PEEK (700): POKE 61,( PEEK (701)-3)
120 POKE 62,255: POKE 63,D:CALL -259
130 PRINT N,: POKE 789,2: POKE 788,177:CALL 785
140 M=( PEEK (700)/2)+ PEEK (701)*128
150 L=2*(( PEEK (856)*128+128)-M):N=N+1
160 PRINT " ";L:GOTO 60
200 GOSUB 300:PRINT "NO EOF MARK"
210 POKE -16290,0:GOSUB 300
230 PRINT :PRINT "***END OF FILE***"
240 CALL -155
300 FOR I=1 TO 30
305 L= PEEK (-16336)+ PEEK (-16336):NEXT I
310 CALL -1059:RETURN